Ham Radio 2000/Ham Radio 2000.iso/ham2000/misc/nshadow/shadow-1.bas

BASIC Source File | 1994-06-23 | 13KB | 446 lines

5 PRINT "**GMT AND LOCAL TIME WHEN THE SUN IS ON THE LOCAL N-S MERIDIAN**"
10 PRINT:PRINT
15 PRINT "              ****INPUTS****"
20 PRINT:PRINT
25 PRINT "LOCAL LONGITUDE FOR EXAMPLE: 95,10.5,W"
30 PRINT "DATE FOR EXAMPLE: M=10 & D=14"
35 PRINT
40 INPUT "ENTER LOCAL LONGITUDE: DG,MN,E OR W"; LO,LN,DA$
45 A=LO+LN/60
50 IF DA$="E" THEN A=-A
55 B=A/15
60 C=B+12
100 INPUT "ENTER MONTH NUMBER (M)"; M
110 INPUT "ENTER DAY NUMBER (D)"; D
115 INPUT "ENTER LOCAL TIME ZONE + OR - T"; T
120 IF M=1 GOTO 235
130 IF M=2 GOTO 240
140 IF M=3 GOTO 245
150 IF M=4 GOTO 250
160 IF M=5 GOTO 255
170 IF M=6 GOTO 260
180 IF M=7 GOTO 265
190 IF M=8 GOTO 270
200 IF M=9 GOTO 275
210 IF M=10 GOTO 280
220 IF M=11 GOTO 285
230 IF M=12 GOTO 290
235 ON D GOTO 1001,1002,1003,1004,1005,1006,1007,1008,1009,1010:GOTO 236
236 ON D-10 GOTO 1011,1012,1013,1014,1015,1016,1017,1018,1019,1020:GOTO 237
237 ON D-20 GOTO 1021,1022,1023,1024,1025,1026,1027,1028,1029,1030,1031
240 ON D GOTO 1032,1033,1034,1035,1036,1037,1038,1039,1040,1041:GOTO 241
241 ON D-10 GOTO 1042,1043,1044,1045,1046,1047,1048,1049,1050,1051:GOTO 242
242 ON D-20 GOTO 1052,1053,1054,1055,1056,1057,1058,1059,1060
245 ON D GOTO 1061,1062,1063,1064,1065,1066,1067,1068,1069,1070:GOTO 246
246 ON D-10 GOTO 1071,1072,1073,1074,1075,1076,1077,1078,1079,1080:GOTO 247
247 ON D-20 GOTO 1081,1082,1083,1084,1085,1086,1087,1088,1089,1090,1091
250 ON D GOTO 1092,1093,1094,1095,1096,1097,1098,1099,1100,1101:GOTO 251
251 ON D-10 GOTO 1102,1103,1104,1105,1106,1107,1108,1109,1110,1111:GOTO 252
252 ON D-20 GOTO 1112,1113,1114,1115,1116,1117,1118,1119,1120,1121
255 ON D GOTO 1122,1123,1124,1125,1126,1127,1128,1129,1130,1131:GOTO 256
256 ON D-10 GOTO 1132,1133,1134,1135,1136,1137,1138,1139,1140,1141:GOTO 257
257 ON D-20 GOTO 1142,1143,1144,1145,1146,1147,1148,1149,1150,1151,1152
260 ON D GOTO 1153,1154,1155,1156,1157,1158,1159,1160,1161,1162:GOTO 261
261 ON D-10 GOTO 1163,1164,1165,1166,1167,1168,1169,1170,1171,1172:GOTO 262
262 ON D-20 GOTO 1173,1174,1175,1176,1177,1178,1179,1180,1181,1182
265 ON D GOTO 1183,1184,1185,1186,1187,1188,1189,1190,1191,1192:GOTO 266
266 ON D-10 GOTO 1193,1194,1195,1196,1197,1198,1199,1200,1201,1202:GOTO 267
267 ON D-20 GOTO 1203,1204,1205,1206,1207,1208,1209,1210,1211,1212,1213
270 ON D GOTO 1214,1215,1216,1217,1218,1219,1220,1221,1222,1223:GOTO 271
271 ON D-10 GOTO 1224,1225,1226,1227,1228,1229,1230,1231,1232,1233:GOTO 272
272 ON D-20 GOTO 1234,1235,1236,1237,1238,1239,1240,1241,1242,1243,1244
275 ON D GOTO 1245,1246,1247,1248,1249,1250,1251,1252,1253,1254:GOTO 276
276 ON D-10 GOTO 1255,1256,1257,1258,1259,1260,1261,1262,1263,1264:GOTO 277
277 ON D-20 GOTO 1265,1266,1267,1268,1269,1270,1271,1272,1273,1274
280 ON D GOTO 1275,1276,1277,1278,1279,1280,1281,1282,1283,1284:GOTO 281
281 ON D-10 GOTO 1285,1286,1287,1288,1289,1290,1291,1292,1293,1294:GOTO 282
282 ON D-20 GOTO 1295,1296,1297,1298,1299,1300,1301,1302,1303,1304,1305
285 ON D GOTO 1306,1307,1308,1309,1310,1311,1312,1313,1314,1315:GOTO 286
286 ON D-10 GOTO 1316,1317,1318,1319,1320,1321,1322,1323,1324,1325:GOTO 287
287 ON D-20 GOTO 1326,1327,1328,1329,1330,1331,1332,1333,1334,1335
290 ON D GOTO 1336,1337,1338,1339,1340,1341,1342,1343,1344,1345:GOTO 291
291 ON D-10 GOTO 1346,1347,1348,1349,1350,1351,1352,1353,1354,1355:GOTO 292
292 ON D-20 GOTO 1356,1357,1358,1359,1360,1361,1362,1363,1364,1365,1366
300 F=C+E
310 G=INT(F)
320 H=F-G
330 I=H*60
340 J=INT(I)
350 K=I-J
360 L=K*60
370 N=INT(L)
380 PRINT:PRINT
390 PRINT G;J;N "   ***GMT WHEN SUN IS ON THE N-S MERIDIAN***"
400 PRINT
410 GL=G+T
420 PRINT GL;J;N "  ***LOCAL TIME WHEN THE SUN IS ON THE N-S MERIDIAN***"
430 PRINT
440 PRINT E "     ***EQUATION OF TIME IN DECIMAL HOURS***"
500 END
1001 E=.059722:GOTO 300
1002 E=.0675:GOTO 300
1003 E=.075278:GOTO 300
1004 E=.083055:GOTO 300
1005 E=.090555:GOTO 300
1006 E=.097778:GOTO 300
1007 E=.105278:GOTO 300
1008 E=.122222:GOTO 300
1009 E=.119444:GOTO 300
1010 E=.126111:GOTO 300
1011 E=.133056:GOTO 300
1012 E=.139444:GOTO 300
1013 E=.145833:GOTO 300
1014 E=.152222:GOTO 300
1015 E=.158056:GOTO 300
1016 E=.163889:GOTO 300
1017 E=.169722:GOTO 300
1018 E=.175:GOTO 300
1019 E=.180278:GOTO 300
1020 E=.185278:GOTO 300
1021 E=.19:GOTO 300
1022 E=.194722:GOTO 300
1023 E=.199167:GOTO 300
1024 E=.203333:GOTO 300
1025 E=.207222:GOTO 300
1026 E=.210833:GOTO 300
1027 E=.214167:GOTO 300
1028 E=.2175:GOTO 300
1029 E=.220556:GOTO 300
1030 E=.223333:GOTO 300
1031 E=.225833:GOTO 300
1032 E=.228333:GOTO 300
1033 E=.230556:GOTO 300
1034 E=.2325:GOTO 300
1035 E=.234167:GOTO 300
1036 E=.235556:GOTO 300
1037 E=.236667:GOTO 300
1038 E=.237778:GOTO 300
1039 E=.238611:GOTO 300
1040 E=.239167:GOTO 300
1041 E=.239444:GOTO 300
1042 E=.239722:GOTO 300
1043 E=.239722:GOTO 300
1044 E=.239444:GOTO 300
1045 E=.238889:GOTO 300
1046 E=.238333:GOTO 300
1047 E=.237222:GOTO 300
1048 E=.236389:GOTO 300
1049 E=.235:GOTO 300
1050 E=.233333:GOTO 300
1051 E=.231667:GOTO 300
1052 E=.23:GOTO 300
1053 E=.227778:GOTO 300
1054 E=.225556:GOTO 300
1055 E=.223056:GOTO 300
1056 E=.220556:GOTO 300
1057 E=.217778:GOTO 300
1058 E=.215:GOTO 300
1059 E=.211944:GOTO 300
1060 E=.208611:GOTO 300
1061 E=.208611:GOTO 300
1062 E=.205278:GOTO 300
1063 E=.201944:GOTO 300
1064 E=.198333:GOTO 300
1065 E=.194722:GOTO 300
1066 E=.190833:GOTO 300
1067 E=.186944:GOTO 300
1068 E=.182778:GOTO 300
1069 E=.178611:GOTO 300
1070 E=.174444:GOTO 300
1071 E=.17:GOTO 300
1072 E=.165833:GOTO 300
1073 E=.161111:GOTO 300
1074 E=.156667:GOTO 300
1075 E=.151944:GOTO 300
1076 E=.147222:GOTO 300
1077 E=.1425:GOTO 300
1078 E=.1375:GOTO 300
1079 E=.132778:GOTO 300
1080 E=.127778:GOTO 300
1081 E=.122778:GOTO 300
1082 E=.117778:GOTO 300
1083 E=.112778:GOTO 300
1084 E=.1075:GOTO 300
1085 E=.1025:GOTO 300
1086 E=.097999:GOTO 300
1087 E=.092222:GOTO 300
1088 E=.087222:GOTO 300
1089 E=.081844:GOTO 300
1090 E=.076944:GOTO 300
1091 E=.071944:GOTO 300
1092 E=.066944:GOTO 300
1093 E=.061944:GOTO 300
1094 E=.056944:GOTO 300
1095 E=.051944:GOTO 300
1096 E=.047222:GOTO 300
1097 E=.042222:GOTO 300
1098 E=.0375:GOTO 300
1099 E=.032778:GOTO 300
1100 E=.028055:GOTO 300
1101 E=.0236111:GOTO 300
1102 E=.019167:GOTO 300
1103 E=.014722:GOTO 300
1104 E=.010555:GOTO 300
1105 E=.006111:GOTO 300
1106 E=.001944:GOTO 300
1107 E=-.001944:GOTO 300
1108 E=-.005833:GOTO 300
1109 E=-.009722:GOTO 300
1110 E=-.013611:GOTO 300
1111 E=-.017222:GOTO 300
1112 E=-.020833:GOTO 300
1113 E=-.024167:GOTO 300
1114 E=-.0275:GOTO 300
1115 E=-.030555:GOTO 300
1116 E=-.033611:GOTO 300
1117 E=-.036389:GOTO 300
1118 E=-.039167:GOTO 300
1119 E=-.041944:GOTO 300
1120 E=-.0444444:GOTO 300
1121 E=-.046667:GOTO 300
1122 E=-.048889:GOTO 300
1123 E=-.050833:GOTO 300
1124 E=-.052778:GOTO 300
1125 E=-.054444:GOTO 300
1126 E=-.056111:GOTO 300
1127 E=-.0575:GOTO 300
1128 E=-.058611:GOTO 300
1129 E=-.059722:GOTO 300
1130 E=-.065555:GOTO 300
1131 E=-.061389:GOTO 300
1132 E=-.061944:GOTO 300
1133 E=-.0625:GOTO 300
1134 E=-.0627778:GOTO 300
1135 E=-.0627778:GOTO 300
1136 E=-.0627778:GOTO 300
1137 E=-.0625:GOTO 300
1138 E=-.062222:GOTO 300
1139 E=-.061667:GOTO 300
1140 E=-.061111:GOTO 300
1141 E=-.060278:GOTO 300
1142 E=-.059444:GOTO 300
1143 E=-.058333:GOTO 300
1144 E=-.056944:GOTO 300
1145 E=-.055555:GOTO 300
1146 E=-.054167:GOTO 300
1147 E=-.0525:GOTO 300
1148 E=-.050833:GOTO 300
1149 E=-.048889:GOTO 300
1150 E=-.046667:GOTO 300
1151 E=-.044722:GOTO 300
1152 E=-.042222:GOTO 300
1153 E=-.04:GOTO 300
1154 E=-.037222:GOTO 300
1155 E=-.034722:GOTO 300
1156 E=-.031944:GOTO 300
1157 E=-.0291667:GOTO 300
1158 E=-.026111:GOTO 300
1159 E=-.023055:GOTO 300
1160 E=-.02:GOTO 300
1161 E=-.016667:GOTO 300
1162 E=-.013333:GOTO 300
1163 E=-.01:GOTO 300
1164 E=-.006667:GOTO 300
1165 E=-.003333:GOTO 300
1166 E=.0002777:GOTO 300
1167 E=.0038889:GOTO 300
1168 E=.0075:GOTO 300
1169 E=.0108333:GOTO 300
1170 E=.0144444:GOTO 300
1171 E=.0180555:GOTO 300
1172 E=.0216667:GOTO 300
1173 E=.0252778:GOTO 300
1174 E=.0288889:GOTO 300
1175 E=.0325:GOTO 300
1176 E=.0361111:GOTO 300
1177 E=.0397222:GOTO 300
1178 E=.0430555:GOTO 300
1179 E=.0466667:GOTO 300
1180 E=.05:GOTO 300
1181 E=.0533333:GOTO 300
1182 E=.0566667:GOTO 300
1183 E=.06:GOTO 300
1184 E=.0630555:GOTO 300
1185 E=.0663889:GOTO 300
1186 E=.0694444:GOTO 300
1187 E=.0722222:GOTO 300
1188 E=.0752778:GOTO 300
1189 E=.0780555:GOTO 300
1190 E=.0808333:GOTO 300
1191 E=.0833333:GOTO 300
1192 E=.0853333:GOTO 300
1193 E=.0880555:GOTO 300
1194 E=.0902778:GOTO 300
1195 E=.0925:GOTO 300
1196 E=.0944444:GOTO 300
1197 E=9.611109E-02:GOTO 300
1198 E=.0977778:GOTO 300
1199 E=9.944439E-02:GOTO 300
1200 E=.1008333:GOTO 300
1201 E=.1019444:GOTO 300
1202 E=.1030556:GOTO 300
1203 E=.1038889:GOTO 300
1204 E=.1047222:GOTO 300
1205 E=.1052778:GOTO 300
1206 E=.1058333:GOTO 300
1207 E=.1058333:GOTO 300
1208 E=.1061111:GOTO 300
1209 E=.1061111:GOTO 300
1210 E=.1058333:GOTO 300
1211 E=.1055555:GOTO 300
1212 E=.105:GOTO 300
1213 E=.1041667:GOTO 300
1214 E=.1033333:GOTO 300
1215 E=.1022222:GOTO 300
1216 E=.1011111:GOTO 300
1217 E=.0997222:GOTO 300
1218 E=.0983333:GOTO 300
1219 E=.0963889:GOTO 300
1220 E=9.472219E-02:GOTO 300
1221 E=9.277781E-02:GOTO 300
1222 E=9.055549E-02:GOTO 300
1223 E=.0880555:GOTO 300
1224 E=.0855555:GOTO 300
1225 E=8.305551E-02:GOTO 300
1226 E=.08:GOTO 300
1227 E=.0772222:GOTO 300
1228 E=.0738889:GOTO 300
1229 E=.0705555:GOTO 300
1230 E=.0672222:GOTO 300
1231 E=.0636111:GOTO 300
1232 E=.06:GOTO 300
1233 E=.0561111:GOTO 300
1234 E=.0519444:GOTO 300
1235 E=.0477778:GOTO 300
1236 E=.0436111:GOTO 300
1237 E=.0391667:GOTO 300
1238 E=.0347222:GOTO 300
1239 E=.0302778:GOTO 300
1240 E=.0255555:GOTO 300
1241 E=.0205555:GOTO 300
1242 E=.0158333:GOTO 300
1243 E=.0108333:GOTO 300
1244 E=.0058333:GOTO 300
1245 E=.0005555:GOTO 300
1246 E=-.0047222:GOTO 300
1247 E=-.0102778:GOTO 300
1248 E=-.0155555:GOTO 300
1249 E=-.0211111:GOTO 300
1250 E=-.0266667:GOTO 300
1251 E=-.0322222:GOTO 300
1252 E=-.0377778:GOTO 300
1253 E=-.0436111:GOTO 300
1254 E=-.0491667:GOTO 300
1255 E=-.055:GOTO 300
1256 E=-.0608333:GOTO 300
1257 E=-.0666667:GOTO 300
1258 E=-.0735:GOTO 300
1259 E=-.0786111:GOTO 300
1260 E=-8.444441E-02:GOTO 300
1261 E=-.0902778:GOTO 300
1262 E=-.0963889:GOTO 300
1263 E=-.1022222:GOTO 300
1264 E=-.1080555:GOTO 300
1265 E=-.1141667:GOTO 300
1266 E=-.12:GOTO 300
1267 E=-.1258333:GOTO 300
1268 E=-.1316667:GOTO 300
1269 E=-.1372222:GOTO 300
1270 E=-.1142055:GOTO 300
1271 E=-.1486111:GOTO 300
1272 E=-.1544444:GOTO 300
1273 E=-.16:GOTO 300
1274 E=-.1652778:GOTO 300
1275 E=-.1708333:GOTO 300
1276 E=-.1761111:GOTO 300
1277 E=-.1811111:GOTO 300
1278 E=-.1863889:GOTO 300
1279 E=-.1913889:GOTO 300
1280 E=-.1963889:GOTO 300
1281 E=-.2011111:GOTO 300
1282 E=-.2058333:GOTO 300
1283 E=-.2105555:GOTO 300
1284 E=-.215:GOTO 300
1285 E=-.2191667:GOTO 300
1286 E=-.2233333:GOTO 300
1287 E=-.2275:GOTO 300
1288 E=-.2313889:GOTO 300
1289 E=-.2352778:GOTO 300
1290 E=-.2388889:GOTO 300
1291 E=-.2425:GOTO 300
1292 E=-.2458333:GOTO 300
1293 E=-.2488889:GOTO 300
1294 E=-.2519444:GOTO 300
1295 E=-.2547222:GOTO 300
1296 E=-.2575:GOTO 300
1297 E=-.2597222:GOTO 300
1298 E=-.2619444:GOTO 300
1299 E=-.2641667:GOTO 300
1300 E=-.2658333:GOTO 300
1301 E=-.2675:GOTO 300
1302 E=-.2688889:GOTO 300
1303 E=-.2702778:GOTO 300
1304 E=-.2711111:GOTO 300
1305 E=-.2719444:GOTO 300
1306 E=-.2725:GOTO 300
1307 E=-.2727778:GOTO 300
1308 E=-.2730555:GOTO 300
1309 E=-.2727778:GOTO 300
1310 E=-.2725:GOTO 300
1311 E=-.2719444:GOTO 300
1312 E=-.2711111:GOTO 300
1313 E=-.27:GOTO 300
1314 E=-.2686111:GOTO 300
1315 E=-.2672222:GOTO 300
1316 E=-.2655555:GOTO 300
1317 E=-.2636111:GOTO 300
1318 E=-.2613889:GOTO 300
1319 E=-.2588889:GOTO 300
1320 E=-.2563889:GOTO 300
1321 E=-.2533333:GOTO 300
1322 E=-.2592778:GOTO 300
1323 E=-.2469444:GOTO 300
1324 E=-.2433333:GOTO 300
1325 E=-.2394444:GOTO 300
1326 E=-.2355555:GOTO 300
1327 E=-.2311111:GOTO 300
1328 E=-.2266667:GOTO 300
1329 E=-.2219444:GOTO 300
1330 E=-.2172222:GOTO 300
1331 E=-.2119444:GOTO 300
1332 E=-.2066667;GOTO 300
1333 E=-.2011111:GOTO 300
1334 E=-.1952778:GOTO 300
1335 E=-.1891667:GOTO 300
1336 E=-.1830555:GOTO 300
1337 E=-.1769444:GOTO 300
1338 E=-.1702778:GOTO 300
1339 E=-.1636111:GOTO 300
1340 E=-.1569444:GOTO 300
1341 E=-.1497222:GOTO 300
1342 E=-.1427778:GOTO 300
1343 E=-.1355555:GOTO 300
1344 E=-.1280555:GOTO 300
1345 E=-.1205555:GOTO 300
1346 E=-.1130555:GOTO 300
1347 E=-.1052778:GOTO 300
1348 E=-.0974999:GOTO 300
1349 E=-.0894444:GOTO 300
1350 E=-.0816667:GOTO 300
1351 E=-.0736111:GOTO 300
1352 E=-.0652778:GOTO 300
1353 E=-.0572222:GOTO 300
1354 E=-.0491667:GOTO 300
1355 E=-.0408333:GOTO 300
1356 E=-.0325:GOTO 300
1357 E=-.0241667:GOTO 300
1358 E=-.0158333:GOTO 300
1359 E=-.0075:GOTO 300
1360 E=-.0008333:GOTO 300
1361 E=.0088889:GOTO 300
1362 E=.0172222:GOTO 300
1363 E=.0255555:GOTO 300
1364 E=.0336111:GOTO 300
1365 E=.0416667:GOTO 300
1366 E=.0497222:GOTO 300